home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / tests / extra_child.test < prev    next >
Encoding:
Text File  |  1995-06-29  |  3.8 KB  |  178 lines
  1.  
  2. if {[string compare test [info procs test]] == 1} then \
  3.   {source defs}
  4.  
  5. # set VERBOSE 1
  6. # set INTERACTIVE 1
  7.  
  8.  
  9. #############
  10. # starts here
  11. #############
  12.  
  13. xtAppInitialize -class List
  14. . setValues -allowShellResize true
  15.  
  16. xmRowColumn .rc managed
  17.  
  18. #################################
  19. # additional message box children
  20. #################################
  21.  
  22. xmMessageBox .rc.mb
  23.  
  24. test extra-1.1 {OK message box child} {
  25.   catch {.rc.mb.OK unmanageChild}
  26. } {0}
  27.  
  28. test extra-1.2 {Cancel message box child} {
  29.   catch {.rc.mb.Cancel unmanageChild}
  30. } {0}
  31.  
  32. test extra-1.3 {Help message box child} {
  33.   catch {.rc.mb.Help unmanageChild}
  34. } {0}
  35.  
  36. test extra-1.4 {Message message box child} {
  37.   catch {.rc.mb.Message unmanageChild}
  38. } {0}
  39.  
  40. test extra-1.5 {Separator message box child} {
  41.   catch {.rc.mb.Separator unmanageChild}
  42. } {0}
  43.  
  44. test extra-1.6 {Symbol message box child} {
  45.   catch {.rc.mb.Symbol unmanageChild}
  46. } {0}
  47.  
  48.  
  49. ###################################
  50. # additional selection box children
  51. ###################################
  52.  
  53. xmSelectionBox .rc.sb
  54.  
  55. test extra-2.1 {OK selection box child} {
  56.   catch {.rc.sb.OK unmanageChild}
  57. } {0}
  58.  
  59. test extra-2.2 {Cancel selection box child} {
  60.   catch {.rc.sb.Cancel unmanageChild}
  61. } {0}
  62.  
  63. test extra-2.3 {Help selection box child} {
  64.   catch {.rc.sb.Help unmanageChild}
  65. } {0}
  66.  
  67. test extra-2.4 {Apply selection box child} {
  68.   catch {.rc.sb.Apply unmanageChild}
  69. } {0}
  70.  
  71. test extra-2.5 {ItemsList selection box child} {
  72.   catch {.rc.sb.ItemsList unmanageChild}
  73. } {0}
  74.  
  75. test extra-2.6 {Items selection box child} {
  76.   catch {.rc.sb.Items unmanageChild}
  77. } {0}
  78.  
  79. test extra-2.7 {Selection selection box child} {
  80.   catch {.rc.sb.Selection unmanageChild}
  81. } {0}
  82.  
  83. test extra-2.8 {Separator selection box child} {
  84.   catch {.rc.sb.Separator unmanageChild}
  85. } {0}
  86.  
  87. test extra-2.9 {Text selection box child} {
  88.   catch {.rc.sb.Text unmanageChild}
  89. } {0}
  90.  
  91.  
  92. ########################################
  93. # additional file selection box children
  94. ########################################
  95.  
  96. xmFileSelectionBox .rc.fsb
  97.  
  98. test extra-2.1 {OK file selection box child} {
  99.   catch {.rc.fsb.OK unmanageChild}
  100. } {0}
  101.  
  102. test extra-2.2 {Cancel file selection box child} {
  103.   catch {.rc.fsb.Cancel unmanageChild}
  104. } {0}
  105.  
  106. test extra-2.3 {Help file selection box child} {
  107.   catch {.rc.fsb.Help unmanageChild}
  108. } {0}
  109.  
  110. test extra-2.4 {Apply file selection box child} {
  111.   catch {.rc.fsb.Apply unmanageChild}
  112. } {0}
  113.  
  114. test extra-2.5 {ItemsList file selection box child} {
  115.   catch {.rc.fsb.ItemsList unmanageChild}
  116. } {0}
  117.  
  118. test extra-2.6 {Items file selection box child} {
  119.   catch {.rc.fsb.Items unmanageChild}
  120. } {0}
  121.  
  122. test extra-2.7 {Selection file selection box child} {
  123.   catch {.rc.fsb.Selection unmanageChild}
  124. } {0}
  125.  
  126. test extra-2.8 {Separator file selection box child} {
  127.   catch {.rc.fsb.Separator unmanageChild}
  128. } {0}
  129.  
  130. test extra-2.9 {Text file selection box child} {
  131.   catch {.rc.fsb.Text unmanageChild}
  132. } {0}
  133.  
  134. test extra-2.10 {Dir file selection box child} {
  135.   catch {.rc.fsb.Dir unmanageChild}
  136. } {0}
  137.  
  138. test extra-2.11 {DirList file selection box child} {
  139.   catch {.rc.fsb.DirList unmanageChild}
  140. } {0}
  141.  
  142. test extra-2.12 {FilterLabel file selection box child} {
  143.   catch {.rc.fsb.FilterLabel unmanageChild}
  144. } {0}
  145.  
  146. #####################################
  147. # additional scrolled window children
  148. #####################################
  149.  
  150. xmScrolledWindow .rc.sw \
  151.     -visualPolicy constant \
  152.     -scrollingPolicy automatic
  153.  
  154. test extra-4.1 {HorScrollBar scrolled window child} {
  155.   catch {.rc.sw.HorScrollBar unmanageChild}
  156. } {0}
  157.  
  158. test extra-4.2 {VertScrollBar scrolled window child} {
  159.   catch {.rc.sw.VertScrollBar unmanageChild}
  160. } {0}
  161.  
  162. test extra-4.3 {ClipWindow scrolled window child} {
  163.   catch {.rc.sw.ClipWindow unmanageChild}
  164. } {0}
  165.  
  166. #############
  167. # Finish up #
  168. #############
  169. if { ! $INTERACTIVE} {
  170.   .rc.mb destroyWidget
  171.   .rc.sb destroyWidget
  172.   .rc.fsb destroyWidget
  173.   .rc.sw destroyWidget
  174.   .rc destroyWidget
  175. } else {
  176.   . mainLoop
  177. }
  178.